#lang racket

(define make-counter
  (lambda (initV counter)
    (lambda ()
      (let ([v counter])
        (set! counter (+ counter 1))
        v))))
(define counter 0)
